(LAP SETND SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(HLRZ@ 1 2) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NODEARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(HRRZ@ 1 0 P) 
	(MOVEI 2 (QUOTE 20)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E NODEARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL